home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / ProtocolAdaptor.p < prev    next >
Text File  |  2004-01-31  |  10KB  |  222 lines
  1. pTempVar <- <primitive 110 42 >
  2. <primitive 112 pTempVar 1  " valueUsingTarget: " \
  3.   #( #[ 16r20 16r30 16r81 16r01 16rF3 16rF5] \
  4.     #( 'valueUsingTarget:' #subclassResponsibility:  )) >
  5.  
  6. <primitive 112 pTempVar 2  " unhookFromSubject " \
  7.   #( #[ 16r11 16rF7 16r04 16r10 16r20 16r81 16r00 16rF2 16rF5] \
  8.     #( #removeDependent:  )) >
  9.  
  10. <primitive 112 pTempVar 3  " targetUsingSubject: " \
  11.   #( #[ 16r21 16r72 16r20 16r80 16r00 16r73 16r51 16r23 16rA3 16rE1 16r04 \
  12.         16r12 16r22 16r5D 16rB6 16rF7 16r02 16r5D 16rF4 16rF2 16r20 \
  13.         16r22 16r23 16r24 16rB1 16r82 16r01 16rF1 16r72 16rF3 16r82 \
  14.         16r02 16rF2 16r22 16rF3 16rF5] \
  15.     #( #accessPath #access:with: #to:do:  )) >
  16.  
  17. <primitive 112 pTempVar 4  " setValueUsingTarget:to: " \
  18.   #( #[ 16r20 16r30 16r81 16r01 16rF3 16rF5] \
  19.     #( 'setValueUsingTarget:to:' #subclassResponsibility:  )) >
  20.  
  21. <primitive 112 pTempVar 5  " renderingValueUsingSubject: " \
  22.   #( #[ 16r10 16r80 16r00 16rF6 16r05 16r20 16r21 16r81 16r01 16rF3 16rF2 \
  23.         16r20 16r0A 16r15 16r73 16r05 16r1E 16r52 16rB0 16r72 16r22 \
  24.         16r52 16r23 16rD0 16rF2 16r23 16r22 16r81 16r02 16r74 16r24 \
  25.         16rA6 16r21 16r80 16r03 16r81 16r04 16rF2 16r24 16r0A 16r1F \
  26.         16rA5 16rF3 16rF5] \
  27.     #( #isProtocolAdaptor #valueUsingSubject: #makeAdaptorForRenderingStoreLeafInto: \
  28.         #asValue #subjectChannel:  )) >
  29.  
  30. <primitive 112 pTempVar 6  " makeAdaptorForRenderingStoreLeafInto: " \
  31.   #( #[ 16r21 16r51 16r20 16rD0 16rF2 16r20 16r5D 16r81 16r00 16rF2 16r10 \
  32.         16r80 16r01 16rF7 16r0A 16r10 16r0A 16r15 16r60 16r10 16r21 \
  33.         16r81 16r02 16rF8 16r02 16rF2 16r21 16rF3 16rF5] \
  34.     #( #subjectChannel: #isProtocolAdaptor #makeAdaptorForRenderingStoreLeafInto:  )) >
  35.  
  36. <primitive 112 pTempVar 7  " hookupToSubject " \
  37.   #( #[ 16r11 16rF7 16r08 16r10 16rA2 16rF7 16r04 16r10 16r20 16r81 16r00 \
  38.         16rF2 16rF5] \
  39.     #( #addDependent:  )) >
  40.  
  41. <primitive 112 pTempVar 8  " changedSubject " \
  42.   #( #[ 16r20 16r20 16r80 16r00 16rA5 16r81 16r01 16rF2 16rF5] \
  43.     #( #subjectChannel #setSubject:  )) >
  44.  
  45. <primitive 112 pTempVar 9  " access:with: " \
  46.   #( #[ 16r22 16r80 16r00 16rF7 16r06 16r21 16r22 16r81 16r01 16rF8 16r0F \
  47.         16rF2 16r22 16r80 16r02 16rF7 16r05 16r21 16r22 16rB1 16rF8 \
  48.         16r04 16rF2 16r22 16r21 16rB5 16rF3 16rF5] \
  49.     #( #isSymbol #perform: #isInteger  )) >
  50.  
  51. <primitive 112 pTempVar 10  " printPathOn: " \
  52.   #( #[ 16r20 16r80 16r00 16rF1 16r72 16rA2 16rFC 16r04 16r22 16r0A 16r1C \
  53.         16rAC 16rF7 16r1A 16r22 16rE1 16r03 16r15 16r23 16r80 16r01 \
  54.         16rF7 16r06 16r21 16r23 16r81 16r02 16rF8 16r05 16rF2 16r23 \
  55.         16r21 16r81 16r03 16rF2 16r21 16r80 16r04 16rF3 16rB3 16rF2 \
  56.         16rF5] \
  57.     #( #accessPath #isSymbol #nextPutAll: #printOn: #space  )) >
  58.  
  59. <primitive 112 pTempVar 11  " printOn: " \
  60.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r21 16r31 16r81 16r02 16rF2 16r20 \
  61.         16r80 16r03 16r21 16r81 16r00 16rF2 16r21 16r34 16r81 16r02 \
  62.         16rF2 16rF5] \
  63.     #( #printOn: $( #nextPut: #target $)  )) >
  64.  
  65. <primitive 112 pTempVar 12  " isProtocolAdaptor " \
  66.   #( #[ 16r5B 16rF3 16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 13  " update:with:from: " \
  70.   #( #[ 16r23 16r12 16rB6 16rF7 16r03 16r20 16r80 16r00 16rF2 16rF5] \
  71.     #( #changedSubject  )) >
  72.  
  73. <primitive 112 pTempVar 14  " removeDependent: " \
  74.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r90 16r01 16r5D 16rB6 16rF7 \
  75.         16r03 16r20 16r80 16r02 16rF2 16r21 16rF3 16rF5] \
  76.     #( #removeDependent: #dependents #unhookFromSubject  )) >
  77.  
  78. <primitive 112 pTempVar 15  " addDependent: " \
  79.   #( #[ 16r20 16r90 16r00 16r5D 16rB6 16rF7 16r03 16r20 16r80 16r01 16rF2 \
  80.         16r20 16r21 16r91 16r02 16rF3 16rF5] \
  81.     #( #dependents #hookupToSubject #addDependent:  )) >
  82.  
  83. <primitive 112 pTempVar 16  " valueUsingSubject: " \
  84.   #( #[ 16r20 16r20 16r21 16r81 16r00 16r81 16r01 16rF3 16rF5] \
  85.     #( #targetUsingSubject: #valueUsingTarget:  )) >
  86.  
  87. <primitive 112 pTempVar 17  " value: " \
  88.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r11 16r5B 16rC9 16rF6 16r04 16r20 \
  89.         16r31 16r81 16r02 16rF2 16rF5] \
  90.     #( #setValue: #value #changed:  )) >
  91.  
  92. <primitive 112 pTempVar 18  " value " \
  93.   #( #[ 16r20 16r10 16r81 16r00 16rF3 16rF5] \
  94.     #( #valueUsingSubject:  )) >
  95.  
  96. <primitive 112 pTempVar 19  " target " \
  97.   #( #[ 16r20 16r10 16r81 16r00 16rF3 16rF5] \
  98.     #( #targetUsingSubject:  )) >
  99.  
  100. <primitive 112 pTempVar 20  " setValue: " \
  101.   #( #[ 16r20 16r20 16r80 16r00 16r21 16r82 16r01 16rF2 16rF5] \
  102.     #( #target #setValueUsingTarget:to:  )) >
  103.  
  104. <primitive 112 pTempVar 21  " setAccessPath: " \
  105.   #( #[ 16r21 16r63 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 22  " accessPath " \
  109.   #( #[ 16r13 16rF3 16rF5] \
  110.     #(  )) >
  111.  
  112. <primitive 112 pTempVar 23  " subjectSendsUpdates: " \
  113.   #( #[ 16r10 16rA2 16rFC 16r04 16r20 16r90 16r00 16rA2 16rF7 16r03 16r20 \
  114.         16r80 16r01 16rF2 16r21 16r61 16r10 16rA2 16rFC 16r04 16r20 \
  115.         16r90 16r00 16rA2 16rF7 16r03 16r20 16r80 16r02 16rF2 16rF5 \
  116.        ] \
  117.     #( #dependents #unhookFromSubject #hookupToSubject  )) >
  118.  
  119. <primitive 112 pTempVar 24  " subjectSendsUpdates " \
  120.   #( #[ 16r11 16rF3 16rF5] \
  121.     #(  )) >
  122.  
  123. <primitive 112 pTempVar 25  " setSubjectChannel: " \
  124.   #( #[ 16r12 16rA2 16rF7 16r04 16r12 16r20 16r81 16r00 16rF2 16r21 16r62 \
  125.         16r12 16rA2 16rF7 16r04 16r12 16r20 16r81 16r01 16rF2 16r20 \
  126.         16r80 16r02 16rF2 16rF5] \
  127.     #( #removeDependent: #addDependent: #changedSubject  )) >
  128.  
  129. <primitive 112 pTempVar 26  " subjectChannel " \
  130.   #( #[ 16r12 16rF3 16rF5] \
  131.     #(  )) >
  132.  
  133. <primitive 112 pTempVar 27  " setSubject: " \
  134.   #( #[ 16r10 16rA2 16rFC 16r04 16r20 16r90 16r00 16rA2 16rF7 16r03 16r20 \
  135.         16r80 16r01 16rF2 16r21 16r60 16r10 16rA2 16rFC 16r04 16r20 \
  136.         16r90 16r00 16rA2 16rF7 16r03 16r20 16r80 16r02 16rF2 16r20 \
  137.         16r90 16r00 16r33 16r5D 16r20 16r83 16r04 16rF2 16rF5] \
  138.     #( #dependents #unhookFromSubject #hookupToSubject #value #update:with:from:  )) >
  139.  
  140. <primitive 112 pTempVar 28  " setASubject: " \
  141.   #( #[ 16r20 16r80 16r00 16rF1 16r72 16rA2 16rF7 16r05 16r22 16r21 16rB5 \
  142.         16rF8 16r05 16rF2 16r20 16r21 16r81 16r01 16rF2 16rF5] \
  143.     #( #subjectChannel #setSubject:  )) >
  144.  
  145. <primitive 112 pTempVar 29  " subject " \
  146.   #( #[ 16r10 16rF3 16rF5] \
  147.     #(  )) >
  148.  
  149. <primitive 112 pTempVar 30  " releaseParts " \
  150.   #( #[ 16r10 16rA2 16rFC 16r04 16r20 16r90 16r00 16rA2 16rF7 16r03 16r20 \
  151.         16r80 16r01 16rF2 16r12 16rA2 16rF7 16r04 16r12 16r20 16r81 \
  152.         16r02 16rF2 16rF5] \
  153.     #( #dependents #unhookFromSubject #removeDependent:  )) >
  154.  
  155. <primitive 112 pTempVar 31  " initialize " \
  156.   #( #[ 16r20 16r90 16r00 16rF2 16r5C 16r61 16rF5] \
  157.     #( #initialize  )) >
  158.  
  159. <primitive 112 pTempVar 32  " subjectChannel:sendsUpdates:accessPath: " \
  160.   #( #[ 16r20 16r23 16r81 16r00 16r22 16r81 16r01 16rF1 16r21 16r81 16r02 \
  161.         16rF2 16rF3 16rF5] \
  162.     #( #accessPath: #subjectSendsUpdates: #subjectChannel:  )) >
  163.  
  164. <primitive 112 pTempVar 33  " subjectChannel:sendsUpdates: " \
  165.   #( #[ 16r20 16rA0 16r22 16r81 16r00 16rF1 16r21 16r81 16r01 16rF2 16rF3 \
  166.         16rF5] \
  167.     #( #subjectSendsUpdates: #subjectChannel:  )) >
  168.  
  169. <primitive 112 pTempVar 34  " subjectChannel:accessPath: " \
  170.   #( #[ 16r20 16r22 16r81 16r00 16r21 16r81 16r01 16rF3 16rF5] \
  171.     #( #accessPath: #subjectChannel:  )) >
  172.  
  173. <primitive 112 pTempVar 35  " subjectChannel: " \
  174.   #( #[ 16r20 16r21 16r5C 16r82 16r00 16rF3 16rF5] \
  175.     #( #subjectChannel:sendsUpdates:  )) >
  176.  
  177. <primitive 112 pTempVar 36  " subject:sendsUpdates:accessPath: " \
  178.   #( #[ 16r20 16r23 16r81 16r00 16r21 16r81 16r01 16rF1 16r22 16r81 16r02 \
  179.         16rF2 16rF3 16rF5] \
  180.     #( #accessPath: #subject: #subjectSendsUpdates:  )) >
  181.  
  182. <primitive 112 pTempVar 37  " subject:sendsUpdates: " \
  183.   #( #[ 16r20 16rA0 16r21 16r81 16r00 16rF1 16r22 16r81 16r01 16rF2 16rF3 \
  184.         16rF5] \
  185.     #( #setASubject: #subjectSendsUpdates:  )) >
  186.  
  187. <primitive 112 pTempVar 38  " subject:accessPath: " \
  188.   #( #[ 16r20 16r22 16r81 16r00 16r21 16r81 16r01 16rF3 16rF5] \
  189.     #( #accessPath: #subject:  )) >
  190.  
  191. <primitive 112 pTempVar 39  " subject: " \
  192.   #( #[ 16r20 16r21 16r5C 16r82 16r00 16rF3 16rF5] \
  193.     #( #subject:sendsUpdates:  )) >
  194.  
  195. <primitive 112 pTempVar 40  " new " \
  196.   #( #[ 16r20 16r90 16r00 16r80 16r01 16rF3 16rF5] \
  197.     #( #new #initialize  )) >
  198.  
  199. <primitive 112 pTempVar 41  " accessPath: " \
  200.   #( #[ 16r20 16rA0 16r21 16r81 16r00 16rF3 16rF5] \
  201.     #( #setAccessPath:  )) >
  202.  
  203. <primitive 112 pTempVar 42  " dependents " \
  204.   #( #[ 16r20 16r90 16r00 16rF3 16rF5] \
  205.     #( #dependents  )) >
  206.  
  207. <primitive 98 #ProtocolAdaptor \
  208.   <primitive 97 #ProtocolAdaptor #ValueModel #AmigaTalk:General/ProtocolAdaptor.st \
  209.    #(  #subject #subjectSendsUpdates #subjectChannel #accessPath ) \
  210.    #( #valueUsingTarget: #unhookFromSubject #targetUsingSubject:  \
  211.        #setValueUsingTarget:to: #renderingValueUsingSubject: #makeAdaptorForRenderingStoreLeafInto:  \
  212.        #hookupToSubject #changedSubject #access:with: #printPathOn: #printOn:  \
  213.        #isProtocolAdaptor #update:with:from: #removeDependent: #addDependent:  \
  214.        #valueUsingSubject: #value: #value #target #setValue: #setAccessPath: #accessPath  \
  215.        #subjectSendsUpdates: #subjectSendsUpdates #setSubjectChannel: #subjectChannel #setSubject:  \
  216.        #setASubject: #subject #releaseParts #initialize  \
  217.        #subjectChannel:sendsUpdates:accessPath: #subjectChannel:sendsUpdates: #subjectChannel:accessPath:  \
  218.        #subjectChannel: #subject:sendsUpdates:accessPath: #subject:sendsUpdates:  \
  219.        #subject:accessPath: #subject: #new #accessPath: #dependents  ) \
  220.   pTempVar 5 10 > #ordinary >
  221.  
  222.